<cfif isdefined('form.FolderName')>
	<cfset NewFolderName = replace(form.FolderName, "'", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, '"', '', 'ALL')>
	<cfset NewFolderName = replace(NewFolderName, "*", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, "&", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, "(", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, ")", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, ";", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, ":", "", "ALL")>
	<cfset NewFolderName = replace(NewFolderName, "!", "", "ALL")>
	
	<cfset fullpath = "#request.basepath##form.Dir#/#NewFolderName#">
	<cfset fullpath = replacenocase(fullpath, "//", "/", "ALL")>

	<cfoutput><cfdirectory action="create" directory="#fullpath#"></cfoutput>
</cfif>
<cfset showfolders = 1>
<cfinclude template="../frm/files.cfm">